#This is a model for topic 24

#  we will use the hypoth_2popproport() function
source("../hypo_2popproport.R")
hypoth_2test_prop( 60, 265, 96, 321, 0, 0.05)
#
#  On the other hand, we might just want to get a 95%
#  confidence interval for the difference of the 
#  proportion of "full time" students at WCC versus 
#  the proportion at Schoolcraft.   To do this we
#  use the ci_2popproportion()
#
source("../ci_2popproport.R")
ci_2popproportion( 265, 60, 321, 96, 0.95)